home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00135_Return From Photo Album.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  657 b   |  31 lines
  1. on mouseDown
  2.   global giWhereIWas, gsCleanUpHandler, gbVideoUp, name, girly, virgin, fish
  3.   set virgin to 0
  4.   buttonLogic()
  5.   if the result = 1 then
  6.     set fish to 0
  7.     sound fadeIn 2, 2 * 60
  8.     repeat with x = 1 to 48
  9.       puppetSprite(x, 0)
  10.       set the visible of sprite x to 1
  11.     end repeat
  12.     if girly = 1 then
  13.       bGoOnGirl()
  14.     else
  15.       set girly to 0
  16.     end if
  17.     set gbVideoUp to 0
  18.     puppetSprite(17, 0)
  19.     repeat with x = 25 to 29
  20.       puppetSprite(x, 0)
  21.       set the visible of sprite x to 0
  22.     end repeat
  23.     unLoad(521)
  24.     unLoad(250)
  25.     set name to 0
  26.     puppetSound(0)
  27.     namechange2()
  28.     go(giWhereIWas)
  29.   end if
  30. end
  31.